Private Sub Worksheet_Activate()

    Range("F6").Value = Range("F6").Value + 1

End Sub